  20 .CLERICS & DRUIDS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .CLERICS & DRUIDS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  30 NT=1
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  70 C=RND (9);IF C>5PRINT "DRUID";GOTO 90
  80 PRINT "CLERIC
  90 L=RND (100)÷10+1
 100 CY=39;CX=12
 110 PRINT "LEVEL:",#3,L
 120 BOX 0,39,160,9,3
 125 CY=30;GOSUB 800
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 155 CY=21;PRINT "SPELLS:
 160 PRINT ;CY=8
 170 GOSUB 270
 180 K=KP;RUN 
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 FOR A=0TO 6;@(A)=0;NEXT A
 280 FOR S=1TO L
 290 GOSUB X+S×10+200×(C>5)
 300 NEXT S
 310 FOR S=1TO 6
 320 CX=S×18-96;CY=12;PRINT #3,S,
 330 FOR T=1TO @(S);IF @(S)=0T=0
 340 IF T=0GOTO 370
 350 CX=S×18-96
 355 CY=11-T×8
 360 Z=RND (12);IF C>5IF S>4IF Z>10GOTO 360
 365 IF C<6IF S>3IF Z>10GOTO 360
 367 PRINT #3,Z
 370 NEXT T
 380 PRINT 
 390 NEXT S
 395 BOX -24,12,108,9,3
 400 RETURN 
 410 @(1)=1;RETURN 
 420 @(1)=2;RETURN 
 430 @(2)=1;RETURN 
 440 @(1)=3;@(2)=2;RETURN 
 450 @(1)=4;@(3)=1;RETURN 
 460 @(3)=2;RETURN 
 470 @(2)=3;@(4)=1;RETURN 
 480 @(3)=3;@(4)=2;RETURN 
 490 @(5)=1;RETURN 
 500 @(2)=4;@(5)=2;RETURN 
 510 @(3)=4;@(4)=3;@(5)=3;RETURN 
 520 @(4)=4;@(5)=4;@(6)=1;RETURN 
 530 @(2)=3;RETURN 
 540 @(3)=2;RETURN 
 550 @(4)=1;RETURN 
 560 @(1)=5;@(3)=3;@(4)=2;RETURN 
 570 @(2)=4;@(5)=1;RETURN 
 580 @(4)=3;@(5)=2;RETURN 
 590 @(2)=5;@(3)=4;@(6)=1;RETURN 
 610 @(1)=2;RETURN 
 620 @(2)=1;RETURN 
 630 @(1)=3;@(2)=2;@(3)=1;RETURN 
 640 @(1)=4;@(3)=2;RETURN 
 650 @(2)=3;RETURN 
 660 @(4)=1;RETURN 
 670 @(2)=4;@(3)=3;RETURN 
 680 @(4)=2;RETURN 
 690 @(1)=5;@(5)=1;RETURN 
 700 @(4)=3;@(5)=2;RETURN 
 710 @(2)=5;@(6)=1;RETURN 
 800 H=RND (3);I=RND (3)
 802 IF C<6IF H=2IF I=2GOTO 800
 805 IF C>5 H=2;I=2
 810 IF H=1PRINT "LAWFUL ",
 820 IF H=2PRINT "NEUTRAL ",
 830 IF H=3PRINT "CHAOTIC ",
 840 IF I=1PRINT "EVIL",
 850 IF I=3PRINT "GOOD",
 860 PRINT ;RETURN 
:RETURN ;RUN 
